home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / sep95 / jens1f8.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  9KB  |  481x430  |  4-bit (5 colors)

Labels: text | screenshot | display | software | number
OCR: FIG _08.SSL :: #Script1 ;: run method run(var eventInfo Event) var .*** tc TCursor endVar if tc.open("Customer .db") then if tc.locate("Customer No", 1221) then if tc.edit() then if tc.lockRecord() then msg Info(tc."Name", "Is locked :"+ string(tc.recordStatus("Locked")) ) endIf else msg Info("Problem", "Cannot edit table") endIf else msg Info("Problem", "Cannot locate record") endIf else msg Info("Problem", "Cannot open TCursor") endIf endmethod . .. Edit Line: 12 Col: 1

---